home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos26.d64 / GEOsCHUTZ 1.0 (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  2KB  |  68 lines
  1. 1000 REM * GEOSCHUTZ V1.0 *
  2. 1010 REM * F.W.(C)08.1989 *
  3. 1020 POKE53280,2:POKE53281,9:POKE646,7
  4. 1030 PRINTCHR$(14);CHR$(8)
  5. 1040 GOSUB1600
  6. 1050 PRINT:PRINT:PRINTTAB(8)"[194]ITTE DIE ZU SCHUETZENDE":PRINT
  7. 1060 PRINTTAB(11)" [199]EOS - [196]ISKETTE [146]":PRINT
  8. 1070 PRINTTAB(3)"EINLEGEN UND EINE [212]ASTE DRUECKEN !"
  9. 1080 POKE198,0:WAIT198,1
  10. 1090 GOSUB1600:OPEN15,8,15,"I:0":CLOSE15
  11. 1100 PRINT:PRINTTAB(6)" 1 [146]  [211]CHREIBSCHUTZ ANBRINGEN"
  12. 1110 PRINT:PRINTTAB(6)" 2 [146]  [203]OPIERSCHUTZ ANBRINGEN"
  13. 1120 PRINT:PRINTTAB(6)" 3 [146]  [193]UFHEBEN DER [211]CHUTZARTEN"
  14. 1130 PRINT:PRINTTAB(6)" 4 [146]  [210]UECKSPRUNG ZU [199]EOS"
  15. 1140 PRINT:PRINTTAB(6)" 5 [146]  [210]UECKSPRUNG ZUM [194]ASIC"
  16. 1150 PRINT:PRINT:PRINTTAB(11)" [194]ITTE WAEHLEN ! [146]"
  17. 1160 GETA$:A=VAL(A$):IFA<1ORA>5THEN1160
  18. 1170 ONAGOSUB1190,1280,1370,1460,1530
  19. 1180 GOTO1090
  20. 1190 GOSUB1600
  21. 1200 PRINT:PRINT:PRINTTAB(5)"[211]CHREIBSCHUTZ WIRD ANGEBRACHT !"
  22. 1210 PRINT:PRINT:PRINTTAB(11)" [194]ITTE WARTEN !! [146]"
  23. 1220 OPEN1,8,15:OPEN3,8,3,"#"
  24. 1230 PRINT#1,"U1 3 0 18 0"
  25. 1240 PRINT#1,"B-P 3 189"
  26. 1250 PRINT#3,CHR$(80);
  27. 1260 PRINT#1,"U2 3 0 18 0"
  28. 1270 CLOSE3:CLOSE1:RETURN
  29. 1280 GOSUB1600
  30. 1290 PRINT:PRINT:PRINTTAB(5)"[203]OPIERSCHUTZ WIRD ANGEBRACHT !"
  31. 1300 PRINT:PRINT:PRINTTAB(11)" [194]ITTE WARTEN !! [146]"
  32. 1310 OPEN1,8,15:OPEN3,8,3,"#"
  33. 1320 PRINT#1,"U1 3 0 18 0"
  34. 1330 PRINT#1,"B-P 3 189"
  35. 1340 PRINT#3,CHR$(66);
  36. 1350 PRINT#1,"U2 3 0 18 0"
  37. 1360 CLOSE3:CLOSE1:RETURN
  38. 1370 GOSUB1600
  39. 1380 PRINT:PRINT:PRINTTAB(5)"[211]CHUTZARTEN WERDEN AUFGEHOBEN !"
  40. 1390 PRINT:PRINT:PRINTTAB(11)" [194]ITTE WARTEN !! [146]"
  41. 1400 OPEN1,8,15:OPEN3,8,3,"#"
  42. 1410 PRINT#1,"U1 3 0 18 0"
  43. 1420 PRINT#1,"B-P 3 189"
  44. 1430 PRINT#3,CHR$(0);
  45. 1440 PRINT#1,"U2 3 0 18 0"
  46. 1450 CLOSE3:CLOSE1:RETURN
  47. 1460 GOSUB1600
  48. 1470 PRINT:PRINT:PRINTTAB(9)"[210]UECKSPRUNG ZU [199]EOS !"
  49. 1480 PRINT:PRINT:PRINTTAB(7)" [194]ITTE [211]PACE DRUECKEN !! [146]"
  50. 1490 GETB$:IFB$=""THEN1490
  51. 1500 IFB$=CHR$(32)THENSYS49152
  52. 1510 IFB$<>CHR$(32)THEN1520
  53. 1520 RETURN
  54. 1530 GOSUB1600
  55. 1540 PRINT:PRINT:PRINTTAB(8)"[210]UECKSPRUNG ZUM [194]ASIC !"
  56. 1550 PRINT:PRINT:PRINTTAB(7)" [194]ITTE [211]PACE DRUECKEN !! [146]"
  57. 1560 GETC$:IFC$=""THEN1560
  58. 1570 IFC$=CHR$(32)THENSYS64738
  59. 1580 IFC$<>CHR$(32)THEN1590
  60. 1590 RETURN
  61. 1600 PRINTCHR$(147):PRINT:PRINTTAB(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  62. 1610 PRINTTAB(9)"[221]                   [146][221]"
  63. 1620 PRINTTAB(9)"[221]  [199]EO[211]CHUTZ  [214]1.0  [146][221]"
  64. 1630 PRINTTAB(9)"[221]                   [146][221]"
  65. 1640 PRINTTAB(9)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  66. 1650 PRINTTAB(9)"[221]  [198].[215]. ([195])08.1989  [221]"
  67. 1660 PRINTTAB(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT:RETURN
  68.